home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / pars7.exe / REALTYPE.PAS < prev   
Pascal/Delphi Source File  |  1993-02-11  |  288b  |  21 lines
  1. unit realtype;
  2. interface
  3. type float=double;
  4.      dfloat=extended;
  5.  
  6. function max(x,y:float):float;
  7.  
  8. function min(x,y:float):float;
  9.  
  10. implementation
  11.  
  12. function max;
  13. begin
  14.  if x<y then max:=y else max:=x;
  15. end;
  16.  
  17. function min;
  18. begin
  19.  if x<y then min:=x else min:=y;
  20. end;
  21. end.